home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / jyuku / omake / luckyv4.bas
BASIC Source File  |  1994-09-20  |  12KB  |  258 lines
  1. 10 'ümékétébéjéxü@éfé`élédün
  2. 20 '  éÉéÆéÅéçéÆéüéìéàéäü@éééÖü@ésüDéléëéöéüéìéòéÆéü
  3. 30 'ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@égüDéhébégéhéménéréd
  4. 40 RANDOMIZE TIME/3:DEFINT A-Z
  5. 50 SCREEN 1,0,3,1:SCREEN @0:CLS:SCREEN 1,1,3,1:SCREEN @1:CLS
  6. 60 DEF FNA(A)=INT(RND(1)*A)+1
  7. 70 DIM A%(13000),B%(10000),C%(3000),BL%(100)
  8. 80 A$="éPéQéRéSéTéUéVéWéXéuégéhéséPéQ"
  9. 90 LINE(0,0)-(32,239),PSET,[100,0,200],BF
  10. 100 FOR A=0 TO 14
  11. 110 SYMBOL(-1,A*16),MID$(A$,1+A*2,2),2,1,7,,,1
  12. 120 SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,5,,,1
  13. 130 IF A=6 THEN SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,2,,,9
  14. 131 IF A=3 OR A=8 THEN SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,1,,,9
  15. 140 IF A=2 THEN SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,3,,,9
  16. 150 IF A=9 THEN SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,6,,,9
  17. 160 IF A=10 THEN SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,4,,,9
  18. 170 IF A=11 THEN SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,4,,,9
  19. 180 IF A=12 THEN SYMBOL(0,A*16),MID$(A$,1+A*2,2),2,1,4,,,9
  20. 190 NEXT
  21. 200 SYMBOL(100,0),KNJ$(&H217A),1.5!,1.5!,[250,250,0]
  22. 210 SYMBOL(121,25),KNJ$(&H217A),1.5!,1.5!,[250,250,0],2
  23. 220 CIRCLE(100,100),2,7,,,,F
  24. 230 GET@A(100,0)-(124,26),C%
  25. 240 GET@A(3,0)-(27,240),A%
  26. 250 GET@A(3,0)-(27,240),B%
  27. 260 GET@A(98,98)-(102,102),BL%
  28. 270 CLS
  29. 280 P$="O4V14L64T255":PLAY P$,P$,P$,P$,P$,P$
  30. 290 FOR J=1 TO 5
  31. 300 SYMBOL( 5,J*41-5 ),KNJ$(&H217A),1.5!,1.5!,[100,100,0]
  32. 310 SYMBOL(26,J*41+20),KNJ$(&H217A),1.5!,1.5!,[100,100,0],2
  33. 320 SYMBOL( 8,J*41+5 ),KNJ$(&H2340+J),1,.5!,1,,,1
  34. 330 LINE(257,J*41-5)-(309,20+J*41),PSET,[50,50,255-I*50],BF
  35. 340 NEXT
  36. 350 FOR I=0 TO 4
  37. 360 LINE(I,I)-(319-I,239-I),PSET,[255-I*50,255,0],B
  38. 370 LINE(I,I)-(319-I,26+I),PSET,[255-I*50,255,0],B
  39. 380 FOR J=1 TO 5
  40. 390 LINE(5,26+J*41)-(314,26+J*41+I),PSET,[0,255-I*50,0],B
  41. 400 LINE(252+I,J*41-10+I)-(314-I,25+J*41-I),PSET,[50,50,255-I*50],B
  42. 410 NEXT:NEXT
  43. 420 LINE(5,5)-(313,25),PSET,[0,100,0],BF
  44. 430 SYMBOL(32,7),"érétéoédéqü@ékétébéjéxü@éfé`éléd",1,1,7,,,13 
  45. 440 GOTO 870
  46. 450 *SELECT
  47. 460 SCREEN 1,0,3
  48. 470 LINE(MX-5,MY-10)-(MX+LEN(MS$)*8+65,MY+60),PSET,7,B
  49. 480 LINE(MX-4,MY-9)-(MX+LEN(MS$)*8+64,MY+59),PSET,1,BF
  50. 490 SYMBOL(MX,MY),MS$,1,1,6,,,1
  51. 500 SYMBOL(MX+10,MY+30),MS2$,2,1,6,,,1
  52. 510 Z=0:XX=MX+13:YY=MY+30
  53. 520 LINE(XX+Z*32,YY)-(XX+Z*32+31,YY+16),XOR,3,BF
  54. 530 IF PAD(1) OR PTRIG(1) OR PAD(2) OR PTRIG(2) THEN 540 ELSE 530
  55. 540 LINE(XX+Z*32,YY)-(XX+Z*32+31,YY+16),XOR,3,BF
  56. 550 IF PAD(1)=7 OR PAD(2)=7 THEN Z=Z-1:IF Z<0 THEN Z=LT
  57. 560 IF PAD(1)=3 OR PAD(2)=3 THEN Z=Z+1:IF Z>LT THEN Z=0
  58. 570 IF PTRIG(1)=1 OR PTRIG(2)=1 THEN PLAY"@24C32":RETURN
  59. 580 WAIT 15:GOTO 520
  60. 590 *PLAYER
  61. 600 SYMBOL(40,Z*82-10),STR$(F)+"éoéké`éxédéq",1,1,7,,,1
  62. 610 SYMBOL(183,82*Z-10),"érébénéqédüü",.7!,1,5,,,1
  63. 620 'SYMBOL(253,82*Z-10),"égébüü",.7!,1,3,,,1
  64. 630 SYMBOL(56,Z*82+10),"Pow",1,1,2,,,13
  65. 640 RETURN
  66. 650 *LIGHT
  67. 660 FOR I=0 TO 3
  68. 670 PUT@A(5,D(F)*41-4)-(29,D(F)*41+22),C%,XOR
  69. 680 WAIT 12
  70. 690 PUT@A(5,D(F)*41-4)-(29,D(F)*41+22),C%,XOR
  71. 700 WAIT 5:NEXT:RETURN
  72. 710 *LIGHT2
  73. 720 LINE(4,D(F)*41-10)-(251,20+D(F)*41),XOR,[125,125,125],BF
  74. 730 WAIT 10
  75. 740 LINE(4,D(F)*41-10)-(251,20+D(F)*41),XOR,[125,125,125],BF
  76. 750 RETURN
  77. 760 *DAI
  78. 770 DX(D(F))=90+FNA(120):DY(D(F))=21+D(F)*41
  79. 780 SB(D(F))=FNA(3):IF FNA(GG(D(F)))=1 THEN SB(D(F))=0 
  80. 790 FOR I=0 TO 4
  81. 800 LINE(5,21+D(F)*41)-(251,21+D(F)*41+I),PSET,[255-I*50,-(SB(D(F))=2)*(255-I*20),10-(SB(D(F))=1)*245-I],B
  82. 810 NEXT
  83. 820 IF SB(D(F))=1 THEN LINE(5,21+D(F)*41)-(251,21+D(F)*41),PSET,[255,255,255]
  84. 830 IF SB(D(F))=3 THEN SB(D(F))=0
  85. 840 IF SB(D(F))=2 THEN LINE(5,21+D(F)*41)-(251,21+D(F)*41),PSET,[10,155,0]:SB(D(F))=-1
  86. 850 LINE(DX(D(F)),DY(D(F)))-(DX(D(F))+LG(D(F)),DY(D(F))+5),PSET,0,BF
  87. 860 RETURN
  88. 870 'START DAI DATA
  89. 880 FOR F=1 TO 5
  90. 890 PK(F)=FNA(25)+10:LG(F)=9+FNA(9):MG(F)=0:IF FNA(8)=1 THEN MG(F)=1
  91. 900 ST(F)=4+FNA(8):GG(F)=1+FNA(3):K1(F)=2250:K2(F)=K1(F)
  92. 910 HT(F)=0:CI(F)=0:D(F)=F:GOSUB *DAI
  93. 920 LINE(42,F*41+5)-(246,F*41+10),PSET,[255,10,255],BF
  94. 930 LINE(43,F*41+6)-(245,F*41+9),PSET,[155,10,155],BF
  95. 940 PUT@A(257,F*41-5)-(281,F*41+20),A%,PSET,,,,2250
  96. 950 PUT@A(284,F*41-5)-(308,F*41+20),B%,PSET,,,,2250
  97. 960 NEXT
  98. 970 'MAIN A
  99. 980 SCREEN 1,0,3,0:CLS
  100. 990 FOR F=0 TO 6:DI(F)=0:NEXT
  101. 1000 MX=360:MY=10:MS$="ë╜Élé┼ùVé╤é▄é╖é⌐üH"
  102. 1010 LT=4:MS2$="éPéQéRéSéT"
  103. 1020 GOSUB *SELECT:EK=0:KZ=Z+1
  104. 1030 FOR F=1 TO KZ
  105. 1040 MX=370:MY=60:MS$=STR$(F)+"é═üAë╜Åêé┼ùVé╤é▄é╖é⌐üH"
  106. 1050 LT=5:MS2$="é`éaébécédép"
  107. 1060 GOSUB *SELECT
  108. 1070 IF Z=5 THEN 970
  109. 1080 Z=Z+1:IF DI(Z)<>0 THEN 1040
  110. 1090 DI(Z)=F:D(F)=Z:SC(F)=100:CC(F)=0:HC(F)=100:HT(F)=0:CI(H)=0
  111. 1100 GOSUB *PLAYER:GOSUB *SCORE:SCREEN 1,0
  112. 1110 NEXT
  113. 1120 LINE(340,0)-(639,479),PSET,0,BF
  114. 1130 'MAIN B
  115. 1140 SCREEN 1,1,3:HH=0
  116. 1150 FOR F=1 TO KZ
  117. 1160 GOSUB *SCORE:BX=40:BY=16+D(F)*41:IF FNA(ST(D(F)))=1 OR WW(D(F))=1 THEN SR(D(F))=5:SL(D(F))=1:GOSUB *LIGHT ELSE IF MG(D(F))=1 THEN MG(D(F))=0:SR(D(F))=5:SL(D(F))=1:GOSUB *LIGHT
  118. 1170 PUT@A(BX,BY)-(BX+4,BY+4),BL%,PSET
  119. 1180 IF FNA(35)=3 THEN SL(D(F))=1:SR(D(F))=4:GOSUB *LIGHT 
  120. 1190 IF FNA(ST(D(F)))=3 AND FNA(3)=1 THEN SL(D(F))=1:SR(D(F))=4:IF FNA(4)=1 THEN GOSUB *LIGHT2 
  121. 1200 IF FNA(PK(D(F)))=3 OR FNA(24)=2 THEN SR(D(F))=10:SR(D(F))=0:SL(D(F))=0:WW(D(F))=0 
  122. 1210 'POWER METER
  123. 1220 'IF SC(F)<10 AND CC(F)=0 THEN CC(F)=1:EK=EK+1:GOTO 1530
  124. 1230 'IF CC(F)=1 THEN 1530
  125. 1240 SCREEN 1,1
  126. 1250 LINE(44,D(F)*41+6)-(245,D(F)*41+9),PSET,0,BF
  127. 1260 PW=0:CL=1:PP=4
  128. 1270 IF PW+PP>202 THEN PP=-4:CL=2 ELSE IF PW+PP<3 THEN PP=4:CL=1
  129. 1280 PW=PW+PP:BEEP 363523,5,30+PW*10
  130. 1290 LINE(42+PW,D(F)*41+6)-(45+PW,D(F)*41+9),PSET,[-(CL=1)*PW,255+(CL=2)*PW,155],BF
  131. 1300 IF PP<0 THEN LINE(44+PW,D(F)*41+6)-(47+PW,D(F)*41+9),PSET,[155,10,155],BF
  132. 1310 IF PTRIG(1)=1 OR PTRIG(2)=1 THEN 1430
  133. 1320 IF PTRIG(1)=2 OR PTRIG(2)=2 THEN 2190
  134. 1330 IF PTRIG(1)=8 THEN SC(F)=SC(F)+10:GOSUB *SCORE:GOTO *ENDING
  135. 1340 WAIT 2:GOTO 1270
  136. 1350 *SCORE
  137. 1360 SCREEN 1,0
  138. 1370 IF SC(F)<0 THEN SC(F)=100:HC(F)=HC(F)+100
  139. 1380 LINE(253,82*D(F)-10)-(488,82*D(F)+9),PSET,0,BF
  140. 1390 SYMBOL(253,82*D(F)-10),STR$(SC(F))+"/"+STR$(HC(F)),1.2!,1,7,,,1
  141. 1400 '
  142. 1410 SCREEN 1,1
  143. 1420 RETURN
  144. 1430 'MOVE BALL
  145. 1440 PLAY "o3@37a4"
  146. 1450 SC(F)=SC(F)-20:GOSUB *SCORE
  147. 1460 SCREEN 1,1,3
  148. 1470 PUT@A(BX,BY)-(BX+4,BY+4),BL%,XOR
  149. 1480 SB=SB(D(F)):TM=0:PW=PW+SB*15+PP*2:GY=0:ED=0:JJ=2
  150. 1490 FT=0:ST=PW:CK=0:SP=3:SL=ST*1/12:IF SB=-1 THEN SL=ST*1/10 ELSE IF SB=1 THEN SL=ST*1/18
  151. 1500 IF PW<20 THEN SL=PW/2
  152. 1510 'BALL
  153. 1520 FX=BX:FY=BY
  154. 1530 PUT@A(BX,BY)-(BX+4,BY+4),BL%,XOR
  155. 1540 'PUT@A(BX,BY)-(BX+4,BY+4),BL%,XOR
  156. 1550 BX=BX+JJ:PW=PW-JJ
  157. 1560 IF PW<SL THEN CK=1:TM=TM+2:FOR T=1 TO TM:NEXT
  158. 1570 IF CK=1 OR PW<3 THEN IF BX+1>DX(D(F)) AND BX+4<DX(D(F))+LG(D(F)) THEN JJ=0:BY=BY+1:GY=GY+1:FT=-4
  159. 1580 IF GY=7 THEN CI(F)=CI(F)+1:PLAY "@35O3C32C16":WAIT 30:ED=1:GOSUB *SLOT
  160. 1590 FOR T=1 TO 4+FT:NEXT:FT=FT+1-SB/2
  161. 1600 IF PW<2 AND ED=0 THEN WW(D(F))=0:SL(D(F))=0:ED=1:WAIT 30
  162. 1610 PUT@A(FX,FY)-(FX+4,FY+4),BL%,XOR
  163. 1620 IF ED=0 THEN 1510
  164. 1630 IF SC(F)>1999 THEN HH=1
  165. 1640 WAIT 30:GOSUB *DAI
  166. 1650 NEXT
  167. 1660 IF KZ=EK THEN *ENDING
  168. 1670 IF EK=KZ-1 AND KZ>1 THEN *ENDING
  169. 1680 IF HH=1 THEN *ENDING
  170. 1690 GOTO 1130 
  171. 1700 END
  172. 1710 *SLOT
  173. 1720 TT=0:TM=0:SL=0:PLAY "o4","o4","o4":FGA=0:IF SL(D(F))=1 AND FNA(3)=1 THEN FGA=FNA(3)
  174. 1730 V1=9+FNA(7):V1=V1*400:FL=0
  175. 1740 V2=21+FNA(7):IF FNA(10)=1 THEN V2=V2+20:IF FNA(2)=1 THEN SL(D(F))=1
  176. 1741 V2=V2*400
  177. 1750 IF V1<>0 AND V1<=400 THEN V1=V1-50:K1(D(F))=K1(D(F))+50:IF K1(D(F))>400*13 THEN K1(D(F))=50
  178. 1770 IF V1<>0 AND V1>400 THEN V1=V1-200:K1(D(F))=K1(D(F))+200:IF K1(D(F))>400*13 THEN K1(D(F))=50
  179. 1780 IF V2<>0 AND V2<=400 AND SL>2 AND SL<>6 THEN V2=V2-200:K2(D(F))=K2(D(F))+200:IF K2(D(F))>400*13 THEN K2(D(F))=50
  180. 1790 IF V2<>0 AND V2<=400 AND SL=6 THEN V2=V2-50:K2(D(F))=K2(D(F))+50:IF K2(D(F))>400*13 THEN K2(D(F))=50
  181. 1791 IF V2<>0 AND V2<=400 AND SL=1 THEN WAIT 10:V2=V2-200:K2(D(F))=K2(D(F))-200:IF K2(D(F))<50 THEN K2(D(F))=K2(D(F))+400*13
  182. 1792 IF V2<>0 AND V2<=400 AND SL=2 THEN V2=V2-50:K2(D(F))=K2(D(F))-50:IF K2(D(F))<50 THEN K2(D(F))=K2(D(F))+400*13
  183. 1800 IF V2<>0 AND V2>400 AND SL=0 THEN V2=V2-200:K2(D(F))=K2(D(F))+200:IF K2(D(F))>400*13 THEN K2(D(F))=50
  184. 1810 IF V2<>0 AND V2<=400 AND SL=0 THEN V2=V2-50:K2(D(F))=K2(D(F))+50:IF K2(D(F))>400*13 THEN K2(D(F))=50
  185. 1820 A=(K1(D(F))+150)/400+1
  186. 1830 B=(K2(D(F))+150)/400+1
  187. 1840 IF V1=0 AND TT=0 THEN IF A=3 OR A=7 THEN TT=1